I had this lying around in my Frontier.root, and I wasn't sure how to distribute it, but it has some very useful stuff in it, especially if you're distributing Frontier scripts, tables, objects, etc.
It's a menubar object. To use the commands in the menu, type:
menu.install (@scratchpad.DWmenu)
into the Quick Script window.
It has three commands in it:
1. Window Formatter: Pretties-up windows, based on the type of the frontmost window. If it's anything but a table window, it resizes the window so it will fit on a 640-by-480 Macintosh screen, and centers it on the desktop (roughly, it allows for the menu bar). If it's a table window, we operate on the cursor object. If it's a table, we recursively visit all sub-windows, and sub-sub-windows, etc.
2. Center Window: Much simpler than Window Formatter. It just operates on the frontmost window, regardless of its type. Resizes and centers it to look good on a 640-by-480 screen.
3. Fix Table Cursors: Put the table cursor on a table you want to clean up. It recursively goes thru all the sub-tables and moves the cursor up to the first line in the table.
As you've probably already guessed, these scripts were used in prettying-up Frontier.root for the version 1.0 shipment in January 1992. From now on, I'm going to use these scripts before uploading any suites and scripts, to be sure everything is in order the first time you look at stuff. You can use these scripts too...
Note -- if you want to have these commands available to you all the time, add the menu.install line to your customStartup script in your people table.
